﻿Imports System.Reflection
Imports System.Deployment.Application
Imports System.Collections.Generic
Imports System.Security.Permissions
Imports System.Net



Module MdlPublic
    Public CAJQ = GetMac()
    Public Function GetMac() As String
        Try
            Dim theNetworkInterfaces() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
            For Each currentInterface As System.Net.NetworkInformation.NetworkInterface In theNetworkInterfaces
                'If currentInterface.OperationalStatus = Net.NetworkInformation.OperationalStatus.Up Then
                Return currentInterface.Id.ToString.Substring(1, 8)
                'End If
            Next
            Return ""
        Catch ex As Exception

        End Try


    End Function
 

End Module
